Formula Issue.

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Steved (anonymous_at_discussions.microsoft.com)
Date: 09/03/04 

Date: Fri, 3 Sep 2004 00:25:38 -0700

Hello from Steved

The below formula copies and paste
What do I need to please put in the formula, so that if I
am pasting it gives an option that it takes me to the
next cell and gives me the option to either paste or skip
to the next cell
Thankyou.

Sub ChangeAllValues2()
Dim mySht As Work***
Dim myBook As Workbook
Dim ReplaceWith As String
Dim ToReplace As String

ToReplace = Application.InputBox("What value to replace?")
ReplaceWith = Application.InputBox("Replace '" & _
ToReplace & "' with what other value?")

For Each myBook In Application.Workbooks
For Each mySht In myBook.Worksheets
mySht.Cells.Replace _
ToReplace, ReplaceWith, _
xlWhole
Next mySht
Next myBook

End Sub

Quantcast