View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
 
Posts: n/a
Default Worksheet/General Procedure problem

Hi

Im trying to get the following code to run from a custom add-in button.
The code works fine when its in the Workbook code area, however, when i
put it into a module in order to package it as an add-in i get the
error "Variable not defined" with cell highlighted. Any ideas?

Thanks a lot for any suggestions.

Paul

Sub FormatMIdates()

Selection.NumberFormat = "@"
For Each cell In Selection

midate = cell.Value

If midate < "" Then

pYear = Left(midate, 4)
pmonth = Mid(midate, 5, 2)
pday = Right(midate, 2)

newDate = pday + "/" + pmonth + "/" + pYear

cell.Value = newDate
End If

Next

End Sub