Yes no continue box with pasting values in to visible cells

[tommyleinen]

Wondering if anyone can help. I need help to create a macro for putting an "x" value into the visible cells i've filtered on a column.
Since the column may not be the same on each sheet I'd like a pop up message to ask Yes or No to ask if the correct cell is selected at the top of the column.

Here is what I have so far:

Sub addxtovisiblecells()

'put cursor in top cell of range before running this

ans = MsgBox("Is the correct cell selected?", vbYesNo)
If ans = vbYes Then
'Yes your code here

Selection.Value = "x"
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -1).Select
Range.ActiveCell.End(xlUp).Select
ActiveRange.PasteSpecial Paste:=xlPasteValues

Else
End Sub
End If

End Sub

Any help would be much appreciated

Thanks

 

[Fluff]

How about

Sub addxtovisiblecells()
   If MsgBox("Is the correct cell selected?", vbYesNo) = vbYes Then
      Range(ActiveCell, ActiveCell.Offset(, 1).End(xlDown).Offset(, -1)).Value = "x"
   End If
End Sub

 

[tommyleinen]

This looks to work a treat Fluff, thank you

 

[Fluff]

You're welcome & thanks for the feedback

 

[tommyleinen]

I'm not sure how to close this thread but the above from Fluff has been working with no issues, so problem solved and one happy bunny!