I'm looking to search for <h1> and replace it with the contents of my clipboard. I can find the location of <h1> but once I select the cell where <h1> exists, my clipboard is empty.
Thanks in advance for any suggestions!
Here is what I have thus far:
With ActiveSheet.UsedRange
Set c = .Find(What:="<h1> ", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
Range(FirstAddress).Select
'here is where I need to paste the contents of my clipboard
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With
Thanks in advance for any suggestions!
Here is what I have thus far:
With ActiveSheet.UsedRange
Set c = .Find(What:="<h1> ", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
Range(FirstAddress).Select
'here is where I need to paste the contents of my clipboard
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With